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15 
TABL 18-52 -1984 23:51:29 X-11 Bliss-32 V Page 1 
v04- 12-8 08-198e 1:58 8:58 DT eKSVMSHASTERS tou" See TABLE .832;1 . (1) 
3 1 1001 MODULE table (IDENT="V04-000 
; : 00 ADDRESSING + mODE (EXTERNAL=GENERAL) ) 
; Z et ; = BEGIN 
: 2 0006 : | aatete arate tatiana ne: 
3 ‘* ® 
; 7 007 1 '* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; 8 0008 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
5 1% 4 84 : :: ALL RIGHTS RESERVED. * 
Py ; * 
a: 0011 1 !* THIS weer IS pyeni aaee yumoee A LICENSE AND MAY BE USED AND copie * 
3 i 012 1 !* ONLY ACCORDANCE WITH THE TERMS SUCH LICENSE AND WITH THE * 
oo 015 1i* | CLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS S$ RE ANY E * 
ie 0014 1 !* COPIES THEREOF MAY NOT BE VIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
s § 0015 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREB a 
3 18 po18 : 7 TRANSFERRED. * 
4 it ® 
;s 3 0018 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 0019 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 31 Ba5¢ : os CORPORATION. * 
3 : * 
3 ¢ O0e¢ 1 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
. 2 0025 1 !=* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
5; « 0024 1 !« * 
: 2 0025 1 !* * 
3 $$ poss ; Vee eRe AREER AREA AAA AE REAR AAEEAAAAAAAAAARAARAARAARTARAEAE REESE 
: 28 0028 1 !++ 
; $3 534 : Facility: Command Definition Utility, Table Management Module 
; (31 0031 1 ! Abstract: This module contains all of the routines that manage the 
3 3 Ooss 1} LI table. This includes creation, input, modification, and 
3 3 OO ; output of the tables. 
: 35 0035 1! It is recommended that you read over the CLITABDEF.SDL file 
3 3 8038 : before reading this code. 
; 38 0038 1 | Environment: Standard CDU Environment. 
; FP 0039 1! 
; 40 0040 1 ! Author: LC. Anagnostopoulos — 
: of og : Creation: ny" January 1983 (Happy Birthday to me) 
; 6 0043 1 | Modifications: 
3; «6464 0044 1! 
: 465 0045 1: v03-001 MCNO160 Maria del C. Nas 29-Mar-1984 
s 6 Bose 1! - Only allow modification of the DCL image table if it matches 
; 4 0047 1! the current version being created by the Linker. 
; 48 0048 1: 
: 69 0049 1 i- 
; % 0050 1 
> Se 0051 1 
3 2$ 6036 1 Library velitapgets: Lib’; 
3 5 0053 1 require itab def 
s $4 0378 1 require ‘cdureq'; 


iss-32 V4.0 age 2 


15 
1$-Sep-19 4 3:2):88 X-11 Bliss-3 ene’ P 
58: SKSVMSMASTER: CCDU.SRCJTABLE .832; 1 (2) 


VA 
14-Sep-1984 11: 8 DI 


: 792 1! TABLE OF CONTENTS 
4 79 1 ' (Sow me ne or ew a a os eee ae e ee (Sp ee em a ee em te 
$ 794 1 

3 795 1 forward routine 

; 0796 1 cdu$prepare_input_table: novalue, 
; 0797 #1 cdu$Sprepare_new_table: novalue, 

$ 3738 1 cduSprepare_image table: novalue, 
; 799 1 cdu$prepare_p1_table: novalue, 

3 0800 1 cdu$Swrite_output_table: novalue, 
3 0801 1 cdu$Swrite_image Table: novalue, 

3 tf 1 cdu$write_pi_table: novalue, 

; p88 1 cdu$delete_verb_name, 

3 804 1 cdu$add_verb_name: novalue, 

3 0805 1 cduScolTect_fable_blocks: novalue, 
; 8806 1 lLong_move: novalue; 

; 0807 1 

3 0808 1! EXTERNAL REFERENCES 
H 0809 1 ' eeeeeoeeeeoneaeee= }4£.s«eeeeceeeeeee20 SE ee we 
; 0810 1 

: 0811 1 external routine 

3 Bate 1 cdu$Sreport_rms_error, 

3 0813 1 cdu$Supgrade_table, 

3 0814 1 cli$get_value, 

; 0815 1 cli$present, 

; 0816 1 LibSget_vm; 

3 0817 1 

: 0818 1 external : ; 

; 0819 1 ctiseg.ctitable: pointer, 

: th} : ctl$gl_ctlbasva: pointer; 

3 P pace 1 $shr_msgdef(cdu,17, local 

: P 08 1 (closeout, severe), 

; P 0824 1 (openin,severe), 

F P 0825 1 (openout ,severe) 

; P 0826 1 (writeerr,severe) 

3 0827 1 : 


Page 3 
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R: CCDU.SRCJTABLE .832; 1 (3) 


:C 


: DCL TABLE CONTROL 


! The following items define the RMS control blocks needed to open 
! and map an existing CLI table image. 


own 
input_xabfhc: $xabfhce(), 


input_esa: plockinentc_saxres.byte). 
input_rsa: block(nam$c_maxrss,bytel, 
input _nam: $nam( 


WAN 


WN SO OOWNOAUES WN $0 ODNOAUE WNC OONOU EWN —OOO 


esa=input_esa, 
ess=Zallocation(input_esa), 
rsa=input_rsa, | 
rss=Zallocation(input_rsa) 


vuvvU 


dbuffer(input_spec.nam$c_maxrss), 
input_fab: $fab( 
dnm=" .EXE', 
fna=input_spec+8, 
fns=Zallocation(input_spec)-8, 
fop=ufo, 
nam=input_nam, 
xab=input_xabfhc 


vuvvVvUU 


! The following items define the RMS control blocks needed to create 
! and write a new CLI table image. 


own 
output_esa: blockCnam$c_maxrss,byte], 
output_rsa: block(nam$c_maxrss,bytel, 
output_nam: $nam( 
esa=output_esa, 
ess=%Zallocation(output_esa), 
rl f=input_nam, 
eeaneurpu fsa, 
rss=Zallocation(output_rsa) 
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dbuf fer (output_spec,nam$c_maxrss), 
output_fab: $fab( 
dnm=' .EXE', 
fac=bio, 
snasqutput.s ec+8, 
fns=Zallocation(output_spec)-8, 
fop=<cbt,sqo,nam,ofp>, 
mrs=512, 
nam=output_nam, 
org=seq, 
rfm=f ix 


Se 


wVvVVVVVUVUU 
ee ee a ee a ee ee ee ee ee a ee ee ee ae ee ee ee ee a ee a a a ee a ed ed 


a ee ee eee) 


BEEP EEE PAW 
DODO OoNNNN NNN 
FW OC OCONOUSWN Oo 


OONO UE WN—OOW 


vv 


output_rab: $rab( 
fab=output_fab, 
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rac=seq, 

tees 


: The following items are needed to control the modification of the DCL 


: Table on which we will work. This 
! the table, the primary vector block. 


global . 
cdu$gi_table: pointer; 


! This ‘tga points at the header for the input table image. 
! was no input table image. 


own 
input_image_header: pointer initial(0); 


first item points at the beginning of 


If zero, there 


! We try to keep unused senguerds at the end of the verb name table and 
e. 


! command block pointer ta 


own 
free_longwords: long initial(0); 


The following item tells us how many. 
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18-06 -1984 23:51:29 VAX-11 Bliss-32 V4.0-74 Pa 5 
12-80-1908 $7:2bi58 DISKSVMSMASTER:CCDU.SRCJTABLE.832;1 = (4) 
'o¢ 
! Description: This routine is called to prepare a CLI table for modification. 


The /TABLE qualifier controls which table is prepared, and 
this is the only table that is modified hereafter. 


Parameters: None. 


Returns: Nothing. 
: Notes: 
GLOBAL ROUTINE cdu$Sprepare_input_table : novalue 
= BEGIN 
local 


status: long 
work _ptr: pointer; 
! Determine whether or not thé user specified an input table image. 


status = cli$get_value(dtext(*TABLES'),input_spec); 
if .status then 


: Yes, an input table image was specified. Call a routine to 
! prepare it for modification. 


cdu$Sprepare_image_table() 
else 


! No input table image was specified, so the user wants to modify 
! the Pl space table. 


cduSprepare_p1i_table(); 


: Upgade the CLI table to the latest format level. If that fails, then 
! signal the resulting CLI status as a fatal error. 


status = ceauperede table(.cdu$gi_table); | 
check(.status, (.stafus and not stS$m_severity) + sts$k_severe); 


! Ensure that the CLI type specified in the primary vector block matches 
! the CLI type specified in the command that invoked us. 


if causal tableCvec b. subtype! nequ 
(if cliSpresent(dtext(*CLI_MCR')) then vec_k_mcr else vec_k_dcl) then 


signal (msg(cdu$S_climismatch)); 
return; 
END; 
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VAX=11 Bliss-32_V4.0-74 p ? 
“v06= 14<Sep- DLEKSVMGMASTERSCCDU. SRCSTABLE B32; 1° cas 
| OOFF 0028C INPUT_SPEC: “ 
0 0028 “BYTE 0 F 
| 0090008 * 00 30 -ADDRESS inPuT_sPEC+8 : 
0294 “BLKB 255 
0393 “BLKB 
03 00394 INPUT_FAB: 
“BYTE : 
50 00395 "BYTE 80 : 
9000 00396 “WORD : 
9020000 0039 “LONG 131072 : 
9000000 9059¢ LONG 9 : 
0000000 003A “LONG : 
00000000 0034 “LONG §0 : 
0000 003A8 “WORD 0 : 
02 OO3AA “BYTE 2 : 
00 003AB “BYTE 0 : 
00000000 O03AC “LONG 0 : 
00 00380 “BYTE 0 : 
00 00381 “BYTE 0 : 
09 00382 “BYTE 0 : 
02 0038 “BYTE 2 : 
00000000 003B4 LONG 0 : 
00000000" 00388 “ADDRESS INPUT_XABFHC : 
00000000" 003BC “ADDRESS INPUT~NAM : 
00000000" 003c0 “ADDRESS INPUT~SPEC+8 : 
00000000" 003¢4 “ADDRESS P.AAA : 
FF 003C8 “BYTE =1 : 
04 003¢9 "BYTE 4 : 
0000 O03CA “WORD 0 : 
00000000 003cc “LONG §60 : 
0000 00300 “WORD 0 : 
0050¢ “BYTE 0 : 
00 0030 “BYTE 0 : 
0°%500000 003D4 LONG 0 : 
00000000 00308 LONG 0 : 
0000 0030C “WORD 0 : 
003DE “BYTE 0 : 
00 003DF “BYTE 0 : 
00000000 0030 "LONG §=60 : 
003E4 OUTPUT_ESA: 
-BLKB 255 
004E3 “BLKB 
004E4 OUTPUT_RSA: 
-BLKB 255 
005E3 "BLKB 1 
02 005€4 OUTPUT_NAM: 
‘BYTE 2 : 
60 005E5 "BYTE 96 : 
FF 005E6 "BYTE <1 : 
00, 00d¢7 "BYTE 0 : 
00000000" 005E8 ADDRESS OUTPUT_RSA : 
00 00SEC “BYTE : 
00 005ED BYTE : 
FF OOSEE BYTE 1 : 
00 OO0S5EF "BYTE 0 : 
00000000" 005F0 “ADDRESS OUTPUT_ESA : 
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15-Sep-1984 23:51: 
14-Sep-1984 11:58: 


O5F4 ADDRESS 
0568 :WORD 
060 “WORD 
Bete «WORD 
614 “LONG 
0618 “LONG 
061C “BYTE 
0610 “BYTE 
O61E “BYTE 
0061F “BYTE 
0620 “BYTE 
006¢1 “BYTE 
622 “BYTE 
00624 “LONG 
00628 - LONG 
0062C :LONG 
90630 “LONG 
06 “LONG 
00638 “LONG 
0063C “LONG 
00644 OUTPUT_SPEC: 
. WORD 
00646 “BYTE 
00648 “ADDRESS 
0064¢ -BLKB 
00748 :BLKB 
0074C OUTPUT_FAB: 
-BYTE 
0074D “BYTE 
0074E “WORD 
00750 “LONG 
00754 “LONG 
00758 “LONG 
0075¢ “LONG 
00760 “WORD 
00762 “BYTE 
0076 “BYTE 
00764 “LONG 
00768 {BYTE 
00769 “BYTE 
0076A “BYTE 
00768 “BYTE 
0076C “LONG 
00770 [LONG 
00774 [ADDRESS 
00778 ZADDRESS 
0077¢ ZADDRESS 
00780 “BYTE 
0781 “BYT 
0782 “WORD 
0784 “LONG 
0788 “WORD 
078A “BYTE 
0788 -BYTE 
078¢ LONG 
0796 “LONG 
0794 “WORD 
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OUTPUT_FAB 


INPUT_IMAGE HEADER: 
FREE_LONGWORDS: 
LONG 


SGLOBAL$,NOEXE ,2 


DUSREPORT_RMS_ERROR 
DUSUPGRADE_ TABLE 

LISGET_VALOE, CLISPRESENT 
IBSGET~VM, CTLSAG_CLITABLE 
CTL$GL_CTLBASVA 

CDUS_CCIMISMATCH 

SCODES,NOWRT,2 

CDUSPREPARE _INPUT_TABLE, Save R2,R3 
LIBSSIGNAL, ~R3 

INPUT _SPEC 

P.AA 

#2, CLISGET_VALUE 

RO. STATUS 


STATUS, 1$ 
49. CDUSPREPARE_IMAGE_TABLE 
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TABL 15-Sep-1984 23:51:29 VAX-11 Bliss-32 V4.0 Pa 10 
VOre800 1228 08= 1 8c $332} :28  DISKSVMSMASTER:CCDU. She TABLE .832;1 9 a) 
0000v CF 00 FB 00025 1$ CALLS 40, CDUSPREPARE. P1_TABLE 3 096 
0000" CF DD 0002A 2$ PUSHL cdUSGL TABL 7 094 
000000006 99 1 FB 000 E CALLS . CDOSUPGRADE._ TABLE : 
2 0 pO 000 MOVL +4 STAT Us : 
oA 3¢ E8 00038 BLBS STATUS + 0948 
50 2 07 CB 00038 BICL3 #7 US Tis. RO : 
04 AO SF 0003F PUSHAB 4(RO) : 
63 01 FB 00048 CALLS #1, LIBSSIGNAL : 
52 0000" CF D0 00045 3$: VL CDUSGL_TABLE, R2 + 0953 
0000" CF 9F 0004A PUSHAB  P.A + 0954 
000000006 00 01 FB 0000E CALLS #1, CLISPRESENT : 
9° 50 €9 909 BLBC ~=_—«aRO,, 4S : 
0 02 10 00058 MOVL #2, RO : 
03 11 00058 BRB 5$ : 
50 oi DO 0005D 4$: MOVL #1, RO : 
50 03 A2 08 0 ED 0060 5$: CMP2V #0, #8, 3(R2), RO F 
09 0066 BEQL © 6$ : 
000000006 +8F od 00068 PUSHL #cDUS CLIMISMATCH + 0955 
3 01 FB OO06E CALLS . LIBSSIGNAL 3 
04 00071 6$: RET + 0959 


; Routine Size: 114 bytes, Routine Base: S$CODE$ + 0000 
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ep-1 =138¢ 3:51: +33 VAX-11 Bliss-32 V4. rts 

ep-1984 11:58:28 DISKSVMSMASTER: ckou" SRC TABLE .832;1 
'o¢ 

' Description: This routine is called to prepare a fresh new CLI table to 

' receive command definitions. We have to create a er jeery 

vector block so that all new blocks can be hung of 


' 
' 
Parameters: None. 
i 
! 
1 


i Returns: Nothing. 

Notes: 

GLOBAL ROUTINE cdu$prepare_new_table : novalue 
= BEGIN 

local 


status: long; 


! Allocate space for a primary vector block. 
allocate largest_table_block(vec_k_length,cdu$gl_table); 


! Initialize the block. The verb name and command block pointer tables will 
! be created later. 


cdu$gl_table(vec_b_type] = 


bloc 
cdu$gl_table[vec_b_su type e] = ete elTiscesent (dtext¢* CLI_MCR')) then vec_k_mcr else vec_k_dcl); 
cdu$gl_tableLvec_w_fla = 0; 


cdu$gl_tableLvec_b_ “strivid = vec_k_strilvl; 
cdu$gl_tableLvec_w_tro_count] = 2; 
cdu$gl-tablelvec_l-verBtbl] = cdu$gl_tableCvec_l_comdptr] = 0; 


! Clear the tongword that tells us the overall size of the CLI table. This 
i lLongword will be adjusted as we allocate table blocks. 


cdu$gl_table[vec_l_table_size] = 

! Set the size of the block. 
set_table_block_size(vec_k_length,cdu$gl_table); 
return; 

END; 


-PSECT S$PLITS,NOWRT ,NOEXE ,2 


00 52 43 4D SF 49 4C 43 00888 P.AAH: .ASCII \CLI mca\<o> 
010E0007 00030 P.AAG: .LONG  1769%727 
00000000° 00034 -ADDRESS P.AAH 


-PSECT SCODES,NOWRT,2 


| TABL 1984 23:51:29 VAKX=11 Bliss-32 V4.0-74 
‘ v06 1229081 38e $7525 358 ST EKSVMGMASTERSCODU. SRC STABLE .B32:1 
000¢ 00000 .ENTRY CDUSPREPARE_NEW_TABLE, Save R2,R3 
53 0000" CF i 900¢ OVAB CDUSGL_TABLE, R3 
E 04 C2 0000 SUBL2 #4, SP 
3 DD OO00A PUSHL R 
04 AE 14 pO 000 OVL #20, 4(SP) 
04 AE 9F 0001 PUSHAB 4(SP) 
600000006 00 02 FB 0001 CALLS #2, LIBSGET_VM 
09 50 £8 O01, BLBS STATUS, 1$ 
50 DD 0001D PUSHL STATU 
000000006 00 01 FB OOOTF CALLS #1, LIBS$SIGNAL 
32 63 b0 90026 1$: MOVL coUSGL TABLE, R2 
02 A 1 00 MOVB #1, 2(R2) 
0000° CF 9F 900¢0 PUSHAB P.AAG 
000000006 00 gi FB 00031 CALLS #1, CLISPRESENT 
05 0 €9 00038 BLBC ~=_- RO, 2$ 
0 02 DO 00038 MOVL #2. RO 
03 11 0003E BRB 3$ 
50 07 DO 00040 28: MOVL #1, RO 
03 A2 50 90 00043 3$: MOVB RO. 3(R2) 
50 63 D0 00047 MOVL CouSGL TABLE, RO 
04 AO 00020000 8F DO 0004A MOVL #131072, 4(RO) 
04 AO 06 90 00052 MOVB #6, _4(RO) 
08 Ad 7¢ 00056 CLRQ 8 (RO) 
10 Ad D4 00059 CLRL =: 16 (RO) 
60 14 BO 0005¢ MOVW #20, (RO) 
51 60 3C 0005F MOVZWL (RO), RI 
10 AO 51 CO 00062 ADDL2.  R1, 16(RO) 
04 00066 RET 
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TABL 15-Sep-1984 3:51:29 VAX-11 Bliss<-32 V4.0-74 
v04- 14-Sep-1984 11:58:28 DISKSVMSMASTER: CCDU.SRCJTABLE .B32;1 
; 273 1005 1 !++ : 
> 274 1 1 ! Description: This routine is called when it has been determined that the 
3; ar 1007 1! user wants to modify an existing CLI table image. The image 
; 276 1008 1! is segeed into memory and checked to ensure that it really 
: 277 1009 1! is a CLI table. 
; 278 1010 1! 
: 279 1011. 1°! Parameters: None. 
: 280 Sig 
> 281 1015 1 ! Returns: Nothing. 
; see 1014 1! 
; 28 1015 1 ! Notes: 
; see 1918 1 !<- 
; 285 1017 1 ; 
; 286 1018 1 GLOBAL ROUTINE cduSprepare_image_table : novalue 
; 44 1019 § = BEGIN « 
; 288 1020 
; 289 1021 local 
3 34 1058 status: long, 
; 291 102 return_array: vector(2,long], 
: $36 1024 isd: pointer, 
; 29 1025 isd2: pointer; 
> 294 1026 
3; 2 1027 
; 296 1028 § ! The inayt table file spec has been placed in the spec buffer. Open the 
: 44 138 ! image file and map it into memory. 
3 44 1031 3 status = Sopen(fab=input_fab); 
: 300 1032 if not .status then i Sag: 
; 301 1033 2 cdu$Sreport_rms_error(msg(cdu$_openin) , input_ fab); 
; 302 P 1034 2 status = $crmpsc(inadr=uptit(0,0), 
2 2S P 1035 2 retadr=return_array, 
3; 304 P 1036 2 flags=sec$m_crf_ + sec$m expres + sec$m_wrt, 
: 305 1037 2 chan=. input_fabCfab$l_stvJ); 
3 $09 bt § check(.status, .status); 
: 308 10460 2 ! Let's yor tty that this image really contains a CLI table. We check the 
; 303 190) § : following things: 
s Sti 1903 2! Majorid and minorid should match does currently created by Linker. 
2 2 1044 2! Must be a native-mode image. 
: gly 1045 ; Must be a sharable image. 
; 314 1046 : Must be Linked without Debug, no transfer, PIC. 
g 63S 1047 : Must have only one image section. 
; 318 Ine : Image section must start at VBN 2, not null, read-only. 
: 315 1930 input_image_header = .return_array(0); 
: 320 103¢ If .input_image_headerCihd$Sw_majorid] neq ihd$k_ majorid. 
3 set 105 or .input_image_headerLihdSw_minorid] neq ihdSk_minorid 
; 356 1054 then 
5 $52 1932 signal ( msg(cli$_oldtab) ); 
B wes 1057 isd = .input_image header + .input_image_header[ihd$w_size); 
; 326 1058 isd2 = .isd * .isdLisd$w_size]; 
; 327 1059 2 if .input_image_header(570,0,16,1] neq -1 or 
: 328 1060 . input image header ihd$b_im typed nequ ihd$k_lim or 
3; Sev 1061 - input_image_headerlihd$v_\nkdebug) or 


Kk 16 
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v04- 14-Sep-1984 11:58:28 DISKSVMSMASTER: cebu she TABLE .B32;1 (6) 
; 0 106 — - input_image_header[Lihd$v_lnknotfr] or 
3 1 1908 input” inete” sheadert thabv= picimg] or 
; ¢ 1998 "isd Fisdsu <siged ney or 
; 1066 “184 ng seaaual eae ba 
3 . w_pagcnt] eqlu 
3 5 1969 eat fag isd$v_wr re 
; : ies isdburrtd notelitabte),. 2,.input _naminam$b_rsl],.input_nam(nam$l_rsa]); 
; 3 139 ! Store the address of the CLI table so other modules can get at it. 
: 340 107 cdu$gl_table = .input_image_header + 512; 
sf 1376 9 put_image_ 
; 34 1074 return; 
; 34 1075 
: 344 1076 END; 
-PSECT S$PLITS,NOWRT,NOEXE,2 
00000000 00000000 00038 P.AAI: .LONG 0, 0 3 
eEXTRN SYSSOPEN, SYSSCRMPSC 
-EXTRN CLIS_OLDTAB, CDUS_NOTCLITABLE 
-PSECT S$CODEf,NOWRT,2 
001C 00000 ENTRY attr ne _IMAGE_TABLE, Save R2,R3,R4 : 1018 
54 000000006 00 9€ 00002 MOVAB LIBSSiGNA 3 
53 0000" CF 9E 00009 MOVAB = INPUT IMAGE HEADER, R3 3 
5E 08 C2 O000E SUBL2 #8, SP : 
FBB4 C3 9F 00011 PUSHAB PUT _F : 1031 
000000006 00 01 FB 00015 CALLS #1, SYSSOPEN : 
52 50 00 O0001C OVL RO, STATU 3 
11 52 £8 OOO1F LBS TATUS, 1$ 3 1938 
FBB4 C3 9F- 00022 PUSHAB PUT_F : 103 
0011109C 8F DD 00026 PUSHL #1118364 : 
000000006 00 02 FB BOOS CALLS #2, CDUSREPORT_RMS_ERROR 3 
7E 7C 00033 1$: CLRQ -(SP) : 1037 
7E 7C 00035 CLRQ (SP) PY 
FBCO §= C3 DD 00037 PUSHL INPUT_FAB+12 : 
7E 7C 00038 CLRQ -(SP) : 
7E D4 00030 CLRL (SP) : 
0002000A 8F ODD Bo0 3 PUSHL #131082 3 
7E 04 00045 CLRL -(SP) : 
28 AE 9F 00047 PUSHAB RETURN_ARRAY : 
0000" CF 9F OO04A PUSHAB P. : 
000000006 00 0c Fe 0004 CALLS #12, SYSSCRMPSC F 
52 50 00 0005 MOVL RO, STATUS ‘ 
05 25 E8 sf BLBS STATUS, 2$ : 1038 
52 DD 00058 PUSHL ae 3 
64 01 FB 0005D CALLS LIBSSIGNAL : 
63 6f d0 0060 2s OVL RETURN ARRAY INPUT. IMAGE _HEADER : 1050 
50 63 00 0006 MOVL FNP Tract WeAve 0 : 1052 
3230 = BF Oc Ad 2 0066 CMPW (ROS, 84 3 
08 12 0006C BNEQ : 
3530 = BF 0— AO B1 0006E CMPW 14(RO), #13616 : 1053 
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Routine Size: 


4 23:51:29 VAX-11 Bliss-32 V4.0-7 
4 11:58:28 DISKSVMSMASTER: CCoU. sre TABLE .832;1 


: 1077 1 !+4 
: rh 1078 1 ! Description: This routine is responsible for o preparing & the CLI table in 
; 348 1079 1! Pl space for modification. is able that is 
> 349 1080 1! currently being wort by the tt] for its command 
; 350 1081 1! definitions. We allow the user to modify the table and put 
See 1086 > 7 it back in P1 space Later. 
; 26 1085 1! 
; 3 1084 1! Parameters: None. 
: 354 1085 1! ‘ 
3 399 1086 1 ! Returns: Nothing. 
; 356 1087 1! 
$ 57 1088 1 ! Notes: 
; 358 1089 1 !<- 
; 359 1090 1 
; 360 1091 1 GLOBAL ROUTINE cdu$prepare_p1_table : novalue 
; 361 138 = BEGIN 
: $08 109 
; 1094 local 
: 364 1095 status: long; 
s 35365 1096 2 
: 366 1097 2 
; 367 1098 2 ! Allocate memory to contain a modifiable copy of the Pl CLI table. Place 
: a8 19 .' i its address in the global table pointer. 
; 370 1101 2 status = Lib$get_vm(%ref(round_up(.ctl$ag_clitable[vec_l_table_ sizel. 512)), cdu$gl_table); 
: 371 1108 3 check(.status, .Status); 
$ $e 1 15¢ ! Copy the P1 table into the memory we just allocated. 
: 32 1108 $ Long_move(.ctl$ag_clitableCvec_l_table_size},.ctl$ag_clitable, .cdu$gl_table); 
- S7e 1108 $ return; 
; 378 1109 2 
3; 379 1110 1 END; 
0004 £0000 -ENTRY CDUSPREPARE_P1 ar * Save R2 
52 000000006 00 75 30 002 MOVAB CTLSAG_CLITABLE, 
SE 04 00009 SUBL2 bat 
0000° CF 9F Q000C PUSHAB CDUSGL_TABLE 
50 62 00 80019 MOVL CTLSAG_ CLITABLE RO 
50 10 AO OOOOO1FF 8F C1 0001 ADDL3 #511, T6(RO), RO 
50°00000200 8F C6 OO0IC DIVL2 #512. RO 
04 AE 50 09 78 00023 SHL #9, RO, 4(SP) 
04 AE 9F 00028 PUSHAB 4 
00000000G 00 02 FB 000 CALLS #2, LJ8S6ET vA 
09 50 €8 000 LBS STATUS, 1 
50 DD 0003 PUSHL ST 
000000006 00 01 FB 00037 CALLS #1, LIBSSIGNAL 
0000° CF DD 4 1$: PUSHL  CDUSGL TABLE 
9¢ DO 0004 MOVL CTLSAG_ CLITABLE, RO 
DD 9 PUSHL 
10 AO DD 00047 PUSHL Tgcno 
0000v CF 03 FB QOO4A CALLS 8 CONG. MOVE 
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1$-sep-19 4 7:21:82 VAX-11 Bliss 


-32 v4. age 
14-Sep-1984 11:58:28  DISKSVMSMASTER . 


oears P 18 
:CCDU.SRCJTABLE .B32;1 (8) 
ee : 
Description: This routine is responsible for writing out a rruenty modified 
CLI table to the destination specified by the /OUTPU 
qualifier. The table can be thrown away, written to P1 
space, or written as an image. - 


' 
i 
i 
! 
Parameters: None. 
i 
i 


Returns: Nothing. 

Notes 
GLOBAL ROUTINE cdu$write_output_table : novalue 
= BEGIN 
local 


status: long; 


! Jf the user doesn't want us to write the table, then just quit. 


if not cli$present(dtext('OUTPUT')) then 
return; 


! Determine whether or not the user specified an output table image. 


status = cli$get_value(dtext(*OUTPUT') ,output_spec); 
if .status then 


' Yes, an output table image is desired. Call a routine to do it. 
cdu$Swrite_image_table() 


else 
!' No output table image was specified, so the user wants to replace 
! the Pl space table. 
cdu$write_pl_table(); 

return; 

END; 


-PSECT S$PLITS,.NOWRT ,NOEXE ,2 


00 00 54 55 50 54 eAAK: =.ASCII SOVIET) <o><O> 
: N 17694726 


55 4F 00040 P : 

O1VE0006 00048 P.AAJ: .LONG : 

at's hae ¢ 004C¢ eADDRESS P.AAK : 

00 00 54 55 50 54 55 4F 00050 P.AAM: .ASCII \OUTPUT\<0><0> 3 
OIF 0008 gonee P.AAL: .LONG 17694726 ; 

0000000" 0005C ADDRESS P.AAM : 


Cc 
i 


p 1 
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3:51:29  VAX-11 8 $-32 Page 19 
v04-= 14-Sep-1984 i 3h ‘38 DISK xSVMCR TER: tba" She TABLE.B32:1 > (8) 
.PSECT SCODES,NOWRT,2 
0000 00000 -ENTRY CDUSWRITE_OUTPUT_TABLE, Save nothing F 1136 
0000" CF 9F 00002 PUSHAB P. + 1133 
000000006 00 or FB 0006 CALLS #1, CLISPRESENT : 
1D 0 f 00D BLBC = RO. 2$ : 
9000" CF 9F 00010 PUSHAB OUfPUT_SPEC + 1138 
000" CF 9F 00014 PUSHAB P.A : 
000000006 00 98 FB 00018 CALLS #2, CLISGET_VALUE : 
06 ES O001F BLBC ATUS, + 113 
0000v CF 00 FB 000¢0 CALLS #0, CDUSWRITE_IMAGE_TABLE ; 114 
0000v CF 00 FB 00028 1$: CALLS #0, CDUSWRITE_P1_TABLE + 115 
04 0002D 2$: RET + 115 


3; Routine Size: 46 bytes, Routine Base: S$CODE$ + 0207 
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1 

15-sep-1984 $3: 31:68 VAX-11 Bliss-3 

14-Sep-1984 11:58:28 DISKSVMSMASTER 
'e4¢ 
: Description: This routine is called to write out a new image containing the 
: CLI table we have just compiled. The new image contains 
: the header and symbols from the input table (/TABLE), but 
contains the new table blocks. 
: Parameters: None. 
; Returns: Nothing. 
! Notes 


GLOBAL ROUTINE cdu$write_image_table : novalue 
= BEGIN 


local 

status: long, 

final_area: pointer, 

input _image_gst_vbn: long, 
Length: long, 

channel: word; 


own 
acp_fib: block(fib$k_length,bytel, 
acp_fib_dsc: descriptor preset ( 
Clen] = fib$k_length, 
Cptr] = acp_fib 


), 
nine acp_record_attributes: block(fat$k_length,byte]; 
in 
acp_attributes_list = uplit(word(atr$s_recattr) ,word(atr$c_recattr), 
engi ace fecera_ater teutes) , 
Long(0)); 


builtin 
rot; 


OOO OO O09 00 09 09 09 09 09 09 09 09 SI NIN SI SINS SN NNO OAOAAAAOOOMINIUTIN 


: An output image can only be created if an input image was specified. 
! Make sure this is the case. 


if .input Snape nooder eqlu 0 then 

signal (msg(cdu$_nointable)); 
! Begin by crogting the output image file. The output spec has already 
! been stored in the spec buffer. 


status = $create(fab=output_fab); 
if not .status then 

cgSrepert ras error (acs (cdul_openaut) output fab): 
status = $connect(rab=output_rab); 
if not .status then 
cdu$Sreport_rms_error(msg(cdu$_openout) ,output_rab); 


Collect all of the 


oooo 


: Allocate a large area to contain the final CLI table. 
! table blocks into that area. 
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15-Sep-1984 23:51:29 VAX=11 Bliss-32 V4.0-74 Page 21 
12286-1984 #7 :38:38 DL SKSVMGMASTERSLCDU. SRCSTABLE .B32:1 “ (3) 
status = Lib$get_vm(cdu$gl_table(vec_l_table_size], final_area); 

check(.status, .Status); 

cduScollect_table_blocks(.final_area); 


. Update the length of the table image section. Save the VBN of the global 
: symbol table and update it, since it resides after che image section. 


begin 
bind 

isd = .input_image_header + + [Rows eee headers ihdtu_stz07s block(,byteJ, 

ihs = .input_image_header + .input_image_headerlihd$w_symdbgof fj: block£, byted; 
isdlisd$w_pagcnt) 


“cqusat tableCvec_l_table_size] + 511) / 512; 
-ihsCifs$l_gstvbnJ; 
+ .isdlisdSw_pagcnt); 


non 


input_image_gst_vb 
insLifis$t gs vbnJ 
end; 


: 
2 


! Write the image header into the output image. 


panne ee le fe = ,input_image_header; 

output_rabCrab$w_rsz] = ; 

status = $write(rab=output_rab); 

if not .status then : 
cdu$Sreport_rms_error(msg(cdu$_writeerr) ,output_rab); 


! Now we want to write out the new CLI table blocks as the image section. 


output_rabCrab$l_rbf] = .cdu$gl_table; k 
Length = round_up(.cdu$gl_table[vec_l_table_size],512); 
while .length gtru 0 do ( 


! Write out 63K, or fewer bytes if there aren't 63K left. 


output_rabCrab$w_rsz] = minu(63*1024, .length); 

status = $write(rab=output_rab); 

if not .status then : 
cdu$Sreport_rms_error(msg(cdu$_writeerr) ,output_rab); 


: Advance the table address and reduce the number of bytes 
! remaining to be written. 


output_rabCrab$l_rbf] = .output_rabCrab$l_rbf] + .output_rablrab$w_rsz); 
length = .length - .output_rablrab$w_rszJ]; 


: Now we must copy the global symbol records from the input table image to 
! the new image. These records begin at the VBN specified in the input image 
! header, and extend through the Last block of the file. 


output_rab(Crab$l_rbf] = .input_image header + (.input_image_gst_vbn-1) * 512; 

output “rab rab$u"rsz2) = t input xe fficCxab$l_ebk] ; “input Taags gst.vbn + 1§ * 512; 

status = $write(rab=output_rab); 

if not .status then : 
cdu$report_rms_error(msg(cdu$_writeerr) ,output_rab); 


! Close the new image file. 


1 
ESepctORe 9:84:3 DISKSUNSMASTERsCCDU. SRC TABLE.832;1 89° (35 


status = $close(fab=output_fab); 
not .status then 
cdu$report_rms_error(msg(cdu$_closeout) ,output_ fab); 


vw 


dsc, : 
p5=acp_attributes_List); 
check(.status, .status); 


: Back up the end-of-file so that it points into the last block at the same 
! byte offset as the input file. The two words of the end-of-file VBN are 
! stored reversed. 


acp_record_attributes(fat$l_efblk] = rot(rot(.acp_record_attributes[fat$l_efblkJ,-16)-1,-16); 
acp_record_attributes(fat$Sw_ffbyte] = .input_xabfficlxab$w_ffbJ; 


MEWN—O0On 
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TABL 15-Sep-1984 23:51:29 VAX-11 Bliss-32 V4.0-74 Page 23 | 
v04- 12286871380 1:38:38 DL SKSVMSMASTER<CCDU. SRCITABLE .B32: 1 ’ 183 \ 
et? i 
3 75 : ACP, since there is no such RMS function. Begin by opening a channel to : 
ee f ! the device containing the file. : 
5 78 begin ; 
32 79 local : 
a2 5B0 device_dsc: descriptor; i 
55 see build_descriptor(device_dsc,.output_nam[nam$b_dev],.output_nam(nam$l_dev]); : 
55 P 128 status = $assign(devnam=device_dsc, ; 
55 ee chan=channel); ‘ 
a2 5 check(.status, .status); 3 
a2 56 end; : 
56 43 : Read in the record attribute area from the file header of the new inepe- : 
20 $80 ! This is done using the file identification (FID) from the output NAM block. : 
56 91 2 acp_fiblfib$v_write] = true; ; 
5 4 ch$move(fib$s_fid,output_nam[nam$w_fid], acp_fiblfib$w_fid]); : 
5 P 129 status = S$qiow(chan=.channel, : 
5 P 1294 func=io$_access + io$m_access, : 
P 1295 pl=acp_f7b_d i 


! Update the record attributes area. 


Status = $qiow(chan=.channel, 
unc=io$_deaccess, 
pl=acp_fib_dsc, ; 
p5=acp_attributes_List); 
check(.status, .status); 


vvvD 
Oe en ee ee ee ee ee ee eee 
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! Now we can deassign the channel. 


status = $dassgn(chan=.channel); 
check(.status, .status); 


SSELE 


73 : Now we have to set the end-of-file on the new image so that it points 
74 ! after the end of the global pyabet records. This must be done with the 
2 
r4 
; 
2 
: return; 
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END; 


-PSECT $PLITS,NOWRT,NOEXE ,2 
OQ P.AAN: .WORD 32 : 
WORD 4 
-ADDRESS ACP_RECORD_ATTRIBUTES : 
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CF 
50 bs 
51 


“ ADDRES 
ACP_RECORD_ATTR 
.BCKB 


4 23:51: 
4 $333} 
LONG 


»PSECT 


ACP_ATTRIBUTES 


2$: 


3$: 


4$: 


EXTRN 
~EXTRN 


MOVL 
MOVZWL 


$3 VAX-11 Bliss-32 V4.0 
8 DISKSVM 

0 

SOWNS ,NOEXE ,2 


64 


IST=P.AAN 
CDU$_NOINTABLE, SYSS$CREATE 
SYSSTONNECT, SYSSWRITE 


SCODES,NOWRT,2 


CDUSWRITE IMAGE TABLE, Save R2,R3,R4,R5,R6,- 


R7,R8,R9.RI0-R 

SYS$aiow, R14 

SYSSWRITE, R10 
CDUSREPORT_RMS_ERROR, R9 
LIBSSIGNAL; RB 
OUTPUT_RAB, R7 


#16, 
INPUT_IMAGE_HEADER 


#CDUS_NOINTABLE 
#1, LIBSSIGNAL 


OUTPUT FAB 
#1, SYSSCREATE 
TUS 


2 
age CDUSREPORT_RMS_ERROR 
#1, SYSSCONNECT 
e STATUS 


US, 3$ 


#1118372 

2. CDUSREPORT_RMS_ERROR 
#16, CDUSGL_TABLE, -(SP) 
ae, LIBSGET~VM 

RO, STATUS 
STATUS, 4$ 
STATUS 

#1, LIBSSIGNAL 
FINAL _AREA 


CBUSCOLLECT TABLE BLOCKS 


# 
INPUT_IMAGE_HEABER, RO 
(RO) ,~R1 


-3 ened 
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52 50 
21 04 
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23 10 A 00900 FF 
‘ 53 Gv000200 
02 A 
5 04 
046 «Al 02 
04 «Al 
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e2 A? 0200 
6A 
56 
08 
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69 
50 0000° 
28 A? 
50 10 AQ QOOOO1FF 
50 00000200 
52 50 
50 
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6A 
56 
0B 
001110D4 
69 
50 22 
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50 22 
52 
50 53 
;3 as 
4 A FEOO 
50 F874 = C7 
50 50 
A7 50 0200 
6A 
56 
0B 
00111004 
69 
80 
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$33 VAX=11 Oi ieseze V4.0-74 


8 DISKSVMSMASTER: CCDU.SRCITABLE .B32;1 


R1, RO, R2 
4(RO), R1 


CDUSGL_TABLE, R3 
#511. T6CRE), RS 
RG, OCR 
4(R1), INPUT_IMAGE_GST_VBN 
2(R2), 4(R1) 

R 


OUTPUT _RAB+40 
#512, OUTPOT_RAB+24 
#1, SYSSWRITE 

TUS 


STATUS, 5$ 


#1118420 
#2, CDUSREPORT_RMS_ERROR 
CDUSGL_TABLE, 
0, OUTPUT RAB+40 
wait, 16(RO), RO 
#9, RO, LENGTH 
9$ 


LENGTH, RO 
RO, #64512 


#64512, RO 
RO, OUTPUT_RAB+34 


#1, SYSSWRITE 
° TUS 
STATUS, 8$ 


#1118420 
#2, CDUSREPORT_RMS_ERROR 
PUT_RAB+34, 80 


#9, INPUT_IMAGE_GST_VBN, RO 

iNet jRAce HEADER, RO 

=512(R0), OOTPUT RAB+40 

INPUT IMAGE_GST_JBN, INPUT_XABFHC+16, RO 


#9, RO, R 
#512, RO, OUTPUT_RAB+34 
#1, SYSSWRITE 

RO, STATUS 

STATUS, 10$ 

#1118420 

#2, CDUSREPORT_RMS_ERROR 


OUTPUT FAB 
#1, SYSSCLOSE 
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TABL 1$-se -1984 23:51:29 VAX-11 Bliss-32 V4.0-74 Page 26 1 
voo= ange 1882 F7:8hi58 | Na cdbnGhASfeRcctpo sacSrasce.a32e1 2% c18s \ 
56 50 00 0017 MOVL RO, STAT : | : 
0c 36 EB 01 f BLBS _—«— STATUS, WF + 1271, : 
80 A? OF o1 PUSHAB OUTPUT FAB + 1272 : 
0011105C¢ BF DD 00187 PUSHL #1118300 : ; 
69 é FB 0018D CALLS #2, CDUSREPORT_RMS_ERROR : | ; 
08 AE FE81 C7? 98 00190 118:  MOVZBW OUTPUT_NAM+57, ~DEVICE_DSC : 1282 ; 
A AE B4 0196 CLRW DEVICE“DSC+ : | F 
OC AE FEBC 5 b0 019 MOVL § OUTPUTINAM+68, DEVICE_DSC+4 : : 
—E 7C 0019F CLRO = =(SP) + 1284. : 
OC AE 9F OO1A1 PUSHAB CHANNEL : F 
14 AE OF OO1A4 PUSHAB DEVICE _DSC ; : 
000000006 00 94 FB OO1AT CALLS #4, SYSSASSIGN : | ; 
56 0 DO OO1AE MOVL RO, STATUS ; 
05 56 £8 00181 LBS STATUS, 12$ + 1285. 
56 DD 001B4 PUSHL STATUS : | 
68 01 FB 001B6 CALLS #1, LIBSSIGNAL : 
4D AZ 01 88 00189 12$: 61582 #1. ACP FIB+1 + 1291, 
50 a7 FE6C C7 06 28 001BD MOVC3 #6, OUTPUT_NAM+36, ACP_FIB+4 > 1292 | 
7E D4 00104 CLRL = = (§P) : 1296. 
0000' CF 9F 001C6 PUSHAB ACP_ATTRIBUTES_LIST : 
7E 7C OO1CA CLRQ 3 = (SP) : | 
7 D4 001CC CLRL = = (SP) : | 
008¢ C7? OF OOICE PUSHAB ACP_FIB_DSC : | 
7E 7C 001D2 CLRQ ss = (SP) : 
7E 04 00104 CLRL = SP) F 
7E 72 8F 9A 00106 MOVZBL #114, =(SP) : | 
7E 2c AE 3C OO1DA MOVZWL CHANNEL, -(SP) $ 
7E D4 O01DE CLRL = (SP) : | 
68 OC FB OO1E0 CALLS #12, SYS$Q10W : 
56 50 DO OO1E3 MOVL RO, STATU 3 
05 56 E8 O01E6 LBS STATUS, 13$ : 1297) 
56 OD OO1ES PUSHL STATUS : | 
68 01 FB OO1EB CALLS #1, LIBS$SIGNAL : | 
50 009c = ¢7 FO 8F 9C OOIEE 138:  ROTL #-16, ACP_RECORD_ATTRIBUTES+8, RO : 1303, 
30 D7 OO1FS DECL RO : 
009c ¢? 50 FO «BF O98: «001F7 ROTL  #-16, RO, ACP_RECORD_ATTRIBUTES+8 : 
Q0OAO C7 F878 C7? BO OOIFE MOVW § INPUT_XABFHC+20, ACPTRECORD_ATTRIBUTES+12 : 1304. 
7E D4 00205 CLRL - 3 1511) 
0000" CF 9F 90207 PUSHAB ACP_ATTRiBUTES_LIST F 
7E 7C 00208 CLRQ 0s = (SP) : 
7E D4 00200 CLRL = = (SP) F 
008¢ Cc? 9F 0020F PUSHAB ACP_FIB_DSC : 
7E 7C 0021 CLRQ = = (SP) : 
7E 34 70 99 1 MOVQ #52, -(SP) : 
7€ 2c «AE 3C 0021 MOVZWL CHANNEL, (SP) : 
7E D4 0021C CLRL = SP : 
68 g¢ FB OOZTE CALLS #12, SYS$QI10W ; 
56 0 D 00 1 MOVL 0 U ; 
05 56 EB 00224 BLBS STATUS, 34$ : 1312 
56 DD 00227 PUSHL STATU ; 
ra 01 FB 00229 CALLS #1, LIBSSIGNAL : 
43 06 AE 3C 00 ¢ 14$:  MOVZWL CHANNEL, -(SP : 1316 
000000006 0 1 FB 00 CALLS #1, SYS$DASSGN ; 
56 0 D 0237 MOVL RO, STATU P 
05 6 £8 O023A BLBS STATUS, 15$ : 1317 
56 DD 00230 PUSHL STATU ; 
68 01 FB 0025F CALLS #1, LIBSSIGNAL 3 


e 


3 Routine Size: 


579 bytes, Routine Base: 
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04 00242 15$: RET 


SCODES + 0235 
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VA $$-32 V4.0-74 8 
ae re Page 8 


X-11 B 
SK KSVMSN STER: tou. SRCIJTABLE .832;1 


1 
\ 


‘ee 
i Description: This routine is called to write out the new CLI table into 
i Pl space, making it the current table for this process. 
the new table is no bioger than the current one, we can 
just overwrite it. t's bigger, we have to allocate new 
memory in P1 space. 


' 
' 
' 
: 
Parameters: None. 
1 
' 
' 


i Returns: Nothing. 

; Notes: 

GLOBAL ROUTINE cdu$write_pi_table : novalue 
= BEGIN 

own 


existing_table: pointer, 
existing table_size: long; 


local 
status: long, 
final_area: pointer; | 


' [ 

TABL hese =1984 23:51:29 VAX-11 Bliss-32 V4.0-74 Page 29 T 
vOe= eae ee= 1882 FFi8ki58 | NsbmthASfeRccte sacSrasce.0321 2% 13>. \ 

620 1 rk ! This internal routine resets the base address of process-permanent P1 

? 1 ; t space. The argument List address is the new base. 

6 § “3 i Note that we are in kernet mode. 

625 1351 ROUTINE reset_pl_base 

6 $ 1 26 = BEGIN 

6 135 

628 1354 builtin 

629 1355 ap; 

$3 1389 

° ¢ 1328 ! Just set the new base address in the global Llongword. 

634 1360 ctl$gi_ctlbasva = .ap; 

635 130) 

636 1 $6 return true; 

637 136 | 

638 1364 END; j 


.PSECT $OWNS,NOEXE,2 
00850 EXISTING_TABLE: | 


00854 EXISTING_TABLE_SIZE: 
BLKB 4 


-PSECT S$CODES,NOWRT,2 
0000 00000 RESET_P1_BASE: 
WORD 


: Save noghing : 1351 

00000000G 00 5C D0 00002 MOVL AP, CTLSGL_CTLBASVA : 1360 
50 01 pO 00009 MOVL #1, RO 3: 1362 

04 0000C RET 3: 1364 


; Routine Size: 13 bytes, Routine Base: S$CODES + 0478 
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TABL 18.5 -1984 23:51:29 VAX-11 Bliss-32 V4.0-74 Page 
v04- 12-80 8- 1986 $7523 353 DISKSVMSMASTERSLCDU SRCSTABLE .B32;1 ° 
; 640 1365 ! This internal routine will unmap the existing CLI table in P1 space. 
; 641 1 08 : Since we are about to copy a new table, there is no point in keeping the 
3 ong : of : Old one around. 
3 ore : $3 ! Note that we are in executive mode. 
> 646 1371 ROUTINE unmap_existing_table 
3; 647 1 ue = BEGIN 
3; 648 137 
> 649 1374 local 
; 650 1375 status: long, 
; 651 1376 range: vector(2,iong); 
a 1398 
; $28 1 ! Delete the virtual memory containing the existing table. 
: 656 1381 rangetO) = .existing_table; ; F 
; 657 1386 range(1) = .existing table + .existing_table_size - 1; 
; 658 138 status = $deltva(inadr=range); 
> 659 1384 f not .status then 
; 660 1385 return .status; 
: 661 1386 
; 662 1387 ! If we just deleted virtual benety at the end of process~permanent 
s ot 138 ; ! Pl space, the we must reset the P1 base address so that it is accurate. 
; 665 1390 4 if sentat ing. table eqla .cti$gl_ctlbasva then ( 
; 666 P1391 4 status = $cmkrnl(routin=reset_p1_base : : 
; 667 1392 4 arglst=.existing_table+.existing_table_size); 
> 668 1393 4 if not .status then 
: 669 1394 4 return .status; 
; 670 1395 3); 
; 671 1396 ; 
3; 672 1397 return true; 
3; 673 1398 3 
: 674 1399 2 END; 
eEXTRN SYSSDELTVA, SYSSCMKRNL 
0004 00000 UNMAP_EXISTING_TABLE: 
«WORD Save R2 
52 0000" CF 5 80008 MOV EXISTING_TABLE, R2 
5E 04 C2 0000 SUBL ] 
62 DD OO00A PUSHL EXISTING_TABLE 
50 62 04 A2 C1 0000C ADDL EXISTING TABLE SIZE, EXISTING_TABLE, RO 
04 AE FF AO 9E 00011 MOVAB =1(RO), RANGE+% 
7E 7C 00016 CLRQ -(SP) 
08 AE 9F 00018 PUSHAB RANGE 
00000000G 00 03 FB 0001 CALLS #3, SYSSDELTVA 
1€ 50 €9 000 BLBC ATUS, 2$ 
000000006 00 "3 } 8) ; ot GEISTING TABLE. CTLSGL_CTLBASVA 
7E 62 04 =#A tf 00 3 ADDL3 EXISTING_TABLE_SIZE, EXISTING_TABLE, -(SP) 
000000006 00 oo Pe $0 CALLS We ess BERNE 
03 5 £5 0030 BLBC = STATUS, s 


ads 


1371 


1381 


1382 


1383 


1384 
1390 
1392 


1393 


Woo 


; Routine Size: 


68 bytes, 


50 


Routine Base: 


01 00 0004 
04 0004 
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rghaiess 


: MOVL #1, RO 
ye: RET 
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TABL 18-55-19 4 23:51:29 VAX-11 Bliss-32 V4.0-7 
v04-" 12-80 8- 1986 $7 525353 DISKSVMSMASTER:CCDU.SR 
: 676 1400 : This routine will copy the new gl table into the same virtual address 
; 677 pt ' space as the peretiny one occupied. This is done if the new table is no 
: ore 1208 ; larger than the existing one. 
Z oat Abe i Note that we are in executive mode. 
: 68 1406 2 ROUTINE overm isti 
' 2 1207 a vermap_existing_table 
er ere 
3 oca 
: §BS 121) Fonges vacant. iene) 
° ran Hy 6 e 
eB 14g ange: vector ong 
; 690 1414 ! Create virtual address space in the place where the existing table was 
: $3) ial? ! (we already deleted iv. The space bust be owned by supervisor node. 
: 69 1417 3 range(0] = .existing_table; 
; 694 1418 range(1j = .existing_ table + .existing_table_size - 1; 
> 695 P 1419 status = $cretva(inadr=range, 
3; 696 1420 ; acmode=ps|$c_super); 
; 697 1421 if not .status then 
; O38 1458 3 return .status; 
: 700 1424 j ! If we just created virtual address space at the end of the process-permanent 
: 4 1052 ; ! portion of Pl space, then reset the base address. 
: 703 1427 4 if .rangel1]+1 eqla .ctl$gl_ctlbasva then ( 
: 704 P 1428 4 status = $cmkrnl(routin=reset_p1_base 
; 75 1°65 4 ‘ arglst=.existing_table); 
: 706 1430 4 if not .status then 
; 707 1431 4 return .status; 
feo RR YS 
; ey re ; ! Move the new CLI table into the space. 
Ps 1 
: at 1338 : long_move(.cdu$gl_tableCvec_l_table_size],.cdu$gl_table, .existing_table); 
; ee ieee ; ! Make the new memory read-only to user mode. 
: 716 P 1440 3 status = $setprt(inadr=range, 
; gy 1441 prot=prt$c_ur); 
; 78 ye | if not .status then 
: ahs be return .status; 
: 721 1445 return true; 
3s fee 1446 : 
; 723 1447 2 END; 


-EXTRN SYSSCRETVA, SYSSSETPRT 
000C 00000 oorrtatmedas 4am TABLE: 


WO ave R2,R3 
53 0000' CF 9E 0000 MOV EXISTING TABLE, R3 
5E 04 C2 0000 SUBL2 #4, SP 


4 
CJTABLE .832;1 


Page 32 
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TASL 18. $ep-1984 23:51:29 VAX-11 Bliss-32 V4. Page 33 
VOr+600 1228 0e- 19k $F:2h 33 DISKSVMSMASTER:CCDU. OC ACITABLE. B32; —" (14) 
63 DD OO00A PUSHL EXISTING_TABLE : 1417 
50 63 06 =A 1 000¢ ADDL EXISTING TABLE_SIZE, EXISTING_TABLE, RO : 1418 
04 AE FF AO 9E 00011 MOV -1(RO), RANGE+S : 
92 DD 0016 PUSHL #2 + 1420 
e b4 001 CLRL -(SP) : 
08 AE F QOO1A PUSHAB RANGE : 
000000006 9 FB 0001D CALLS #3, SYSS$CRETVA : 
9 DO 00024 OVL RO, STATUS : 
4 52 £9 00027 BLBC STATUS, 2 + 1421 
50 04 AE gi C1 0002A ADDL3 #1, RAN + 1427 
000000006 00 jE Di 09 F cCHPL RO. CT LSet ETLBASVA : 
63 DD 000 PUSHL EXISTING_TABLE t 1429 
FF71 CF 9F OOO3A PUSHAB RESET P1~BASE : 
000000006 00 02 FB 0003 CALLS #2, SYSSTMKRNL : 
52 50 DO 0004 MOVL RO, STATUS : | 
26 3¢ E9 00048 BLBC STATUS, 2$ > 1430. 
63 DD 00048 1$: PUSHL EXISTING TABLE + 1436. 
50 0000" CF 00 0004D MOVL CDUSGL_TABLE, RO 3 
50 0D 00052 PUSHL RO : 
10 AO DD 00054 PUSHL  16(RO) : 
0000v CF 03 FB 00057 CALLS #3, LONG MOVE : 
7E OF 7D 0005c MoVa #15, =(SB) + 1441 
7E 7C 0005F CLROQ = (SB) : 
10 AE 9F 00061 PUSHAB RANGE : 
000000006 00 05 FB 00064 CALLS aS SYSSSETPRT : 
52 50 DO 00068 MOVL RO, STATUS : 
04 52 E8 O006E BLBS STATUS, 3$ + 144 
50 52 DO 00071 28: MOVL STATUS, RO + 144 
04 00074 RET : 
50 01 DO 00075 3$: MOVL #1, RO > 144 
04 00078 RET + 144 


; Routine Size: 121 bytes, Routine Base: S$CODE$ + 04C9 
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v04- 12-9 08-1 9b 7:28:58 DISKSVMSMASTER: CCDU.SRCJTABLE.832;1 . (15) 
; 725 1448 : This routine will copy a new CLI table into a hunk of virtual memory in 
; 726 1449 ! Pl space. The address of this memory has sosting to do with the address 
: 727 1450 : of the existing Pl table, because the new table is bigger. The existing 
5 f : Vee) table has already been deleted. 
: f , 1438 i Note that we are in executive mode. 
[7 ; 1455 2 ROUTINE map_bigger_table 
; 7 1456 = BEGIN 
: 5 5 1288 local 
. 1459 status: long, 
i a 1460 range: vector(2,long); 
mB i 
: 740 1208 3 ! Expand P1 space so it can accomodate the new table. The new memory must be 
3 oe re ¢: ! owned by supervisor mode. 
3; 76 P 1466 status = Sexpreg(pagents(.cduSgl_table(vec_t_table_size}+511) / 512, 
3 7446 P 1467 retadr=range, 
3; «745 P 1468 H nome pam 1 c_super, 
; 746 1469 region=1); 
: 747 1470 3 if not .status then 
3 be pe ; return .status; 
: 750 1493 3 ! Set the base address of process-permanent P1 space. since it has just 
: ie} ere ; ! been moved with the expand region. 
: Fag P 1476 3 status = pres rene erenee 28 base, 
: 754 1477 3 arglst=.rangeLl1J); 
s 795 1478 ; if not .status then 
3 £38 4 return .status; 
; £38 108) : ! Move the new CLI table into the memory we just created. 
; ree et Long_move(.cdu$gl_tableCvec_l_table_size],.cdu$gl_table, .range(1]); 
; f° He 1 ! Make the new memory read-only to user mode. 
: 764 P 1487 3 status = $setprt(inadr=range, 
3; 765 1488 ; prot=prt$c_ur); 
: 766 1489 if not .status then 
: yer e+ return .status; 
: Hs 1336 ! Reset the address range of the table in P1 space. 
: 771 1494 3 ctl$ag_clitable = .range[1); 
oe ee) 
3 in 
3 46) 1497 2 end_address = ctl$ag_clitable+4: pointer; 
; 776 1499 4 end_address = .range(0]; 
: Oe 130) 3 one 
: 779 1308 return true; 
; 780 150 
s 781 1504 END; 


a 


3; Routine Size: 


2 
1$-58p-1986 23:51:29 VAXe11 BLiss-32 Vv 
att) 7a ort Bd a GP 


~-EXTRN SYSSEXPREG 
0004 00000 MAP_BIGGER TABLE: 


WORD Save R2 
SE 08 C2 0000 sate #8. SP 
01 DD 9000 PUSHL 
2 DD 00007 PUSHL We 
so oo8hs BF ob Sauer RUatM® EMME, ase, 
50 10 AO 000001FF gt C1 00011 ADDL3 #51 » Toth) Rd 
7E 50 00000200 8F (C7 OOOIA DIVLS # 
000000006 00 04 FB 00022 CALLS #4, ‘tlenitt 
52 0 oO 90029 MOVL RO. STATU 
368 52 £9 0002C BLBC STATUS 3 
04 AE DD 900¢F PUSHL RANGE+ 
FFOO CF 9F 00032 PUSHAB RESET P1_BASE 
000000006 00 02 FB 00036 CALLS @# STSSCIRRM. 
52 50 D0 00030 MOVL RO, STATU 
a7 52 «£9 90040 BLBC — STAT % 
04 AE DD 0004 PUSHL  RANGE+ 
50 00’ * CF DO 00046 OVL  CDUSGL_TABLE, RO 
50 0D 00048 PUSHL 
10 Ad DD 00040 PUSHL 1gcRo 
0000v CF 03 FB 90050 CALLS Long hove 
7E OF 7D 00055 MOV is 
7E 7C 00058 CLROQ (SP) 
10 AE 9F O005A PUSHAB RANGE 
000000006 00 05 FB 0005D CALLS aon SYSSSETPRT 
52 50 D0 00064 MOVL RO. StAtUs 
04 3g E8 00067 BLBS STAT ATS 
50 52 DO 0006A 18: MOVL STATUS. RO 
04 0006D RET 
000000006 00 04 AE DO 0006E 2$: MOVL § RANGE+4, CTLSAG_CLITABLE 
000000006 00 6E DO 00076 MOVL RANGE, END_ADDRESS 
50 ‘01 DO 00070 MOVL #1, RO 
04 00080 RET 


129 bytes, Routine Base: S$CODE$ + 0542 
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vou+000 1ar8eon18ks 17:88:58 DISKSVMSMASTERSLCDU. SRCITABLE. 832;1 918) ' 
; «783 1505 ' Main routine. i 
3; «784 1 ° ! Allocate a large area to contain the yinet CLI tables, before we move |i 
; 785 1 : them into Pl space. Collect all of the table blocks into the area. Wwe ij 
: ree 1508 ' can't collect directly beady Pl space, becouse we dcn't know where the : 
3 ree 1292 ! final table will fit i 
; 789 1511 status = Lib$get_ yatceySgt tableCvec_l_table_size], final_area); i 
; 790 1216 check(.status, .Statu : 
3 ied 1317 cduScollect_table ‘blocks (. final_area); i 
; 79 1515 ' Place the address and size of the arty Pi table into own storage, 
; ree 1218 ! so that the internal routines can get at it. i 
3; 796 1518 existing_table = .ctl$ag_clitable; i 
$ ads 121% existing table_ size = round up(. existing. table(vec_l_table_size],512); i 
; 4 1381 ! Unmap the existing CLI table from P1 space. : 
; 801 15 : 2 status = Scmexec(routin=unmap_existing_table); i 
3 HH 13 : 2 check(.status, .status); 
3; 804 1526 ! If the new table is no Larger than the old one, then we can use the same 
; 805 1527 i memory in Pl space to contain it. Otherwise, we have to allocate new 
3 Hy 1368 § i memory. 
; 808 1386 § if -cduSgt - tableCvec_l_table_size] lequ .existing_table_size then 
: 309 133) ; tus = Scmexec (rout in=overmap_existing_table)~ 
3 else 
; 811 133 : status = $cmexec(routin=map_bigger_table); 
; 812 1534 check(.status, .status); 
> 813 1535 
: 814 1536 return; 
3; «815 1537 2 
; 816 1538 1 END; 
-EXTRN SYSSCMEXEC 
003C 00000 -ENTRY CDUSWRITE_P1_TABLE, Save R2,R3,R4,R5 : 1336 
55 00000000G 00 9E ails MOVAB SYSSCMEXET, 3 
54 0000' CF 9E 00009 MOVAB EXISTING TAB » R4 F 
53 00000000G 00 5 0000 ety LIBSSIGNAL, : 
5€ ge C geet SUBL Te 3 
3 DD 0001 PUSH SP : 1511 
7E 0000° CF 1 C1 OOOTA ADDL #16, CDUSGL fe. (SP) : 
000000006 98 0¢ Fe 0020 CALLS 4% *LIBSGET=V 3 
5 DO 00027 MOVL RO, STATUS ~ : 
05 52 EB OO02A BLBS STATUS, 1$ : 1512 
52 DD 0002D PUSHL STATUS 3 
63 01 FB Qu02F CALLS #1, PISS Fem, 3 
6— DD 4 2 1$ PUSHL Fl ; 1513 
0000v CF F 0 CALLS #1, C CBUSCOLLECT _TABLE_BLOCKS 3 
8 000000006 00 OD 88 9 MOVL CTLSAG CLITABLE? EXISTING_TABLE : 1518 
0 4 D0 on MOVL EXISTING T ; 1519 
50 10 AO QOOOOIFE BF C1 0004 ADDL3 #511, 16TRO), R ; 
50 00000200 F C6 0004C DIVL #512, RO 3 


Rae Rit RS L 


3; Routine Size: 


AG 


149 bytés, 


04 Ad 


Routine Base: 


FE64 


ONW NOE NON NOP MOMUUOON NO 
—MNOM MO MMOO™—MMVOr TMO 
DOIWOO Lf P-ODMIT WOW "ow 
SOOOCooooooooooooooooooo 


pt fe ey —0o9o -9oO MOMO"woOOoN 


SCODES + 05C3 


tbosto-t9ge 28:51:29 


PAGO 
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wn 
bad 
zDD 


4 | a EXISTING _TABLE_SIZE 
UNMAP EXISTING _TABLE 
SSCMEXEC 


#2, SYSSCME 

R STATUS 

STATUS, 2$ 

STATUS 

#1, LIBSSIGNAL 

CDUSGL_TABLE, RO 

16 (RO); EXISTING_TABLE_SIZE 
=(SP) 

OVERMAP_EXISTING_ TABLE 
=(SP) 


MAP_BIGGER_TABLE 
#2, SYSSCMEXEC 
RO, STATUS 
STATUS, 5$ 
STATUS 

#1, LIBSSIGNAL 
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(16) 


1523 


1524 


1530 
1531) 


1533, 


1534 


1538 | 


ve} 

v04-000 

; 818 1539 1 
; $32 1540 1 
$ 0 1541 1 
; 821 1 ry 1 
; & ¢ 9 1 
; 1544 1 
; 824 1ee2 1 
; 825 1 rt 1 
3; 826 1547 1 
; 827 1548 1 
; 828 1549 1 
3 B62 1550 1 
> 830 1551 1 
; 831 1326 1 
3 B36 1555 1 
3; 8 1554 § 
; 834 1555 

; 4835 1556 

; 836 1557 

; 837 1558 

; 838 1559 

; 839 1560 2 
: 840 1561 

3; 841 1366 

> 842 156 

3; 843 1564 

3; 844 1565 § 
3; 845 1566 

3 846 1567 2 
3; 847 1568 § 
3: 848 1565 

3 849 1570 § 
: 850 1571 

3; «851 1572 2 
3 526 1573 2 
; 85 1574 

3 854 1575 

3; 855 1576 

3; 856 1577 3 
3; 857 1578 

3; 858 1579 

3: 859 1580 
Be BG 
3 § 1388 

; 86 1og8 

3; 864 1585 

; 865 1586 

3 866 1587 

3; 867 1588 

; 868 1589 

3; 869 1590 

; 370 1591 

: 71 1236 
3 1h 159 

3; 87 1594 

3 874 1595 


: 


1$-sep-19 4 $333) :82 " 


1 Bliss-32 V4 
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SKSVMSMASTE abu SRCTTABLE.B32:1 . a 
lee 

! Description: This routine is responsible for deleting a verb name from a 
; CLI table. This is done x removing the verb name and 

its corresponding command block pointer from the two 

vector blocks in which ghey reside. The blocks which 
define the verb simply fall into disuse. 


verb_name By descriptor, the name of the verb. 


Returns: 


i 

i 

i 

i 

Parameters: 
! By value, a boolean which is true if the verb name existed. 
i 


; Notes: 


7 maechies cdu$delete_verb_name(verb_name: ref descriptor) 


local 
key: long 
entry: pointer, 
Length: long; 


! If there is no verb name table now, then the command can't exist. 


if .cdu$gl_table{vec_l_verbtbl] eqla 0 then 
return false; 


' The verb name table contains lonqwords, each of which is the first four 
! characters of a verb name, padded with NULs. 


ch$copy(minu(.verb_name[len],4),.verb_name[ptr], NUL,4,key); 
If not found, 


’ Search the verb name table for the key just built. 
! forget it. 


begin 

bind 
vector_verb = .cdu$gl_table + .cdu$gi_table[vec_l_verbtblJ: block{,bytel, 
verb_names = vector_verb + vec_k_header erie, vector[,long], 
vector_command = .cdu$gl_table + -coubat tableCvec_l_comdptrJ: blockL byte) 
command_block_pointers = vector_command * vec_k_header_length: vectorl, ong); 


entry = (incr i from 0 to ,vector_command(vec w ite count)-1 do , 
if ch$eqli(4,key, 4,verb_names€.7],NOL) then exitloop .i); 
if .entry eql -1 then 
return false; 


! Eliminate the found gantry and the perrecpendtng entry in the command 
! block pointer table by closing up the tables around the entry. 


length = f.vector conmendl voc ¥ tre count] = .entry - 1) * 4; 
ch$move(. length, verb_names senitryel]. yerb namesl.entry]); ; 
ch$move(.length,command_block_pointersL.entry+1], command_block_pointersl.entry]); 


! Adjust the Length of the verb name table, along with the length and TRO 
! count in the command block pointer table. 


ter 


é 
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14-Sep-1984 11:58:28 ASTE 
5 159 
: 1 3 vector_verb(vec_w_size] =_.vector gveretvec_u size] - 
g 1 38 vector_commandLvVec_w go \ae2 ® = vector  comnandtvec We sisal - 4; 
3 159 decrement (vector _command(vec_w_tro_countJ); 
7 1690 § er 
3 1086 ! Increment the count of unused longwords at the ends of the tables. 
3 1604 increment (free_longwords) ; 
5 1982 return true; 
3 i809 1 END; 
O3FC 00000 ENTRY tt” Nig em te Save R2,R3,R4,R5,R6,.- ; 1553 
5E 04 C2 0000 SUBL2 #4. SP F 
5 0000" CF 00 0000 MOVL CDUSGL_TABLE, R7 3 1564. 
08 A7 D5 OOO0A TSTL 8(R7) : 
75 13 0000D BEQL 5$ 3 
50 04 AC 0 Q000F MOVL VERB_NAME, RO ; 1570) 
51 60 C 00013 MOVZWL (RO), R1 : 
04 51 B1 00016 CMPW R1, #4 : 
03 1B 00019 BLEQU 1$ 3 
51 04 p00 00018 MOVL #4, R1 : 
00 046 B60 2) 2c Bese 1$ MOVCS R11, @4(RO), #0, #4, KEY : 
58 57 08 as C1 09038 ADDL3 8(R7), R7, RB : 157 
57 OC A? ¢0 0002A ADDL2 12(R75, R? : 157 
50 06 A? 3C Q002E MOVZWL 6(R7), RO : 158 
56 01 CE 00032 MNEGL #1, I ; 158 
07 11 00035 BER 3$ : 
08 A846 +3 Di 00037 2$: CMPL KEY, 8(R8)CI) $ 
0 13 0003C BEQL 4$ : 
F5 56 50 F2 OOO3E 3$: AOBLSS yf 1, 2$ : 
56 01 CE 4 98: MNEGL ENTRY 3: 1582 | 
FFFFFFFE © BF 56 D1 00045 4$: CMPL cM Nir RY, #1 + 1584 
36 13 0004C BEQL $ 3 
50 06 A? 3C Bape MOVZWL 6(R7), RO 3 1590) 
50 56 Cs 005 SUBL2 ae RO 3 
33 p 8292 DECL ; 
59 50 8 00 ASHL te gat? LENGTH ; 
08 A846 DF 0005B PUSHAL dTENTRYJ : 1591 
OC A846 of 0005F PUSHAL achat ENTRY) 3 
9E 9E 59 28 00063 Oovc3 bengie a(SP)+, a(SP)+ : 
08 A746 DF 00067 PUSHAL ROD CENTRY : 1592 | 
OC A746 DF 00068 PUSHAL 12(R7)CENTRYJ ; | 
9E 9E 59 28 OO06F MOVC3 LENGTH, a(SP)+, a(SP)+ 3 
68 04 Ag 00073 SUBW2 #4, (RB) ; 1597 | 
67 4 A2 00076 SUBW #4, (R7) ; 1598) 
06 A? B? 00079 DECW = (RT) : 1599 
0000" CF b8 007C INCL FREE ‘ee: 3 1604) 
50 01 8 OpRe MOVL wi, R : 1605. 
4 0008 ET 3 


thea 47:23:38 «NES coumGhaSteRsceDU sacStaBLe.e32;1 2 %%c1$$ 


50 yi pone 5$: cuae RO : 1607 


vou=600 


; Routine Size: 135 bytes, Routine Base: S$CODE$S + 0658 
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v0L+000 12-800-1 380 $7 :33:33 DL SKSVMGMASTERSLCDU. SRCITABLE .B32:1 9 18) 
: BB 1S 1 | description: This revetne { ible for addi b 
3 ! Description: Ss routine is responsible for adding a verb name to a 
; 890 1610 1! CLI table. First ony existing verb none ‘s removed. 
; 891 1611 1! Then the verb name is added, along with its corresponding 
; 2 iol¢ : command block pointer. 
3 894 1614 1 | Parameters: verb_name By descriptor, the name of the verb. 
: 4 1912 : command. block By reference, the command block for the verb. 
3 83 1617 : Returns: Nothing. 
: 899 1819 1 ! Notes 
; 900 1620 1 !-- 
; 901 1621 1 
; 90 16 ¢ 1 GLOBAL ROUTINE cduSadd_verb_name(verb_name: ref descriptor, 
; sit 1 ? 1 epee command_block: long) : novalue 
: 905 1658 
; 906 1958 local 
; 907 1627 status: long, 
; 908 1628 vector_verb: pointer, 
; 909 1629 vector_command: pointer, 
; 910 1630 length: long, 
>; 911 1631 new_block: pointer, 
; aig 1638 key: long, 
; a 1637 entry: long; 
: 915 1635 
: 2i$ 1936 ! Decide if we have an existing verb name table. 
; 3i8 lose if .cdu$g!_tableCvec_l_verbtbl] eqla 0 then ( 
; 920 1640 3 ! No, we don't. This must be a new CLI table, so we want to 
3 6Vel 1641 3 i allocate a verb name and command block table and initialize 
: 356 1obe 3 ! them. Allocate enous space for 128 free ponguords. Hang 
: 8S7 bo ; ! the two tables off of the primary vector block. 
: 925 1645 length = vec_k_header_length + 1284; 
; 926 1646 allocate_largest table_block(.length,vector_verb); 
3; 927 1647 vector_verb(vec_b_typeJ =_block_k vector; 
; 928 1648 vector_verblvec_b_su tyge) = vec_k_verb; 
; 929 1649 vector_verblvec_w_flags] = 0; 
: 930 1650 vector verblvec_w_tro_count) = 0; 
3: 931 1651 set_table block_stze(Vec_k_header_length,vector_verb); 
: 236 1636 cdu$gl_taBlelvet_l_verbtBlJ = .vettor_verb - .cdu$gl_table; 
: 934 1654 allocate_large table block(. ten th,vector_command) ; 
; 935 1655 vector_command([vec_b_type] =_block_k vector: 
; 936 1028 vector_command(vec_b_su typed = vec. k_command; 
; 937 165 vector_command(vec_w_flagsJ = 0; 
: 938 1008 vector _command(vec_w_tro_count] = 0; 
: 939 165 set table block_sizetvec_k_header_length,vector_command) ; 
; ae 1960 cdu$gl_tablelvet_l_comdptr] = .vettor_command -".cdu$gl_table; 
; 3% 1668 free_longwords = 128; 
3 946 1664 2) else 


2 
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: A verb name table already exists. If there is an entry for the 
' new verb name, delete it. 


cdu$delete_verb_name(.verb_name); 


! There must be at least one free longword after the end of the tables, 
' or else § need to make the tables bigger. If we must, then extend 
! them by 3 entries. 


if .free_longwords eqlu 0 then ( 
Bind 


vector_verb = .cdu$gl_table + “ceutal kpbtet vest verecet ys Logit -byted. 
vector_command = .cduSgl_table + .cduSgl_tablel[Vec_l_comdptrJ: blockL,byte); 


ei Locate. lorgest.tep e_block(.vector_verb{vec_w_size] + 32*4, new_block); 
ch$move(.vector_verblvec_w_size),vector_ verb, .new_block); 
cdu$gl_tablelvec_l_verbtBl] = .new_block = .cdu$gl_table; 


allocate_largest_table plock(.vector.command(vec _u_size) + 32%4, new_block); 
ehSnove vec for Zonnand vec_w_size],vector_command, .new_block); 
cdu$gl_tablelvec_l_comdptr] = .new_block -.cdu$gl_table; 


PARE AAAAAAAAA AAA AAAI AO 


OOO 00000000 00 09 09 09 09 09 SINISE NII OOOO 
NAABWN @O ODNAUE WN CO OONOAUE WN (OO ONOUM 


? , free_longwords = 32; 

6 a 

6 ! The verb name table contains henquor ds. each of which is the first four 

yes ! characters of a verb name, padded with NULs. 

4 ch$copy(minu(.verb_name[len],4),.verb_name(ptr], NUL,4,key); 

696 ' Search the verb name table to find the first verb name that collates 

O38 ! higher than the new one. 

699 begin 

700 bind 

701 vector_verb = .cdu$gl_table + .cdu$gl_tableCvec_l_verbtblJ: block, byte], 
70 verb_names = vector_verb + vec_k_header ength: vector(, long], 

70 vector_command = .cdu$gl_table +” .cdu$gl_table(vec_l_comdptrJ: blockl byte? 
4 command_block_pointers ="vector_command + vec_k_header_ length: vectort, ong); 
706 4 entry = (incr i from 0 to vector commandf ver _y.tro count]-1 do ’ 

70 if ch$gtr(4,verb_namesl.iJ, 47kéy,NOL) then exitloop .i); 

4 if .entry eql -1 then 

7 entry = .vector_command(vec_w_tro_count]; 


! Make a hole in the verb name and command block pointer tables to 
! accomodate the new verb name. 


length = (.vector_command(vec_w_tro_count] - .entry) * 4 
ch$move(. length, verb_names oOnthy). verb_namesl.entry+1)); 
ch$move(.length,command_block_pointersl.éentry], command_block_pointersl.entry+1)); 


! Put the verb name and command block pointer into the table. Adjust 
! the verb name table size, and the size and TRO count in the command 
! block pointer table. 
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X-11 by 
SKSVMSMASTER: cl (bu SRC TABLE .832;1 


-cdu$gl_table; 


CUSADD VERB_NAME, Save R2,R3,R4,R5,R6,.R7,- 
R8,R9,RTO,RIT 
tiascer. va, R11 


SP 
COusct TABLE, RO 
ir 


7320 sue 
VECTOR_VERB 
LENGTH: 4(SP) 
4(SP) 

#2, LIBSGET_VM 
STATUS, 2$ ~ 


verb_names(.entry) = er 
extend_table ‘et esiiet vec or verb); 
command_block_pointers entry . command block = 
extend_fable_Block_size(4, vector _command) > 
increment (vettor command(vec_w_tro_count]); 
end; 
! Decrement the count of free longwords at the end of the tables. 
mm gta _longwords); 
return 
1 END; 
OFFC 00000 
$2 000000006 90 2 0 
70 08 KO BS O00NT 
03 13 00014 
0081 31 00016 
7 ogee ar Sante 
we iy 8 PB 
68 02 FB 00028 
09 50 €8 00028 
50 DD ait 43 
00000000G 00 01 FB 00030 
51 04 AE 0 ait 28: 
ce meses 5 
61 08 BO 00044 
39 0000" Gi Bt dooce 
10 A0d 52 C0 0004F 
a 1 gg i SF 8388 
04 AE 5 go 00058 
04 AE 9F OO0SF 
6B 02 FB BR 068 
r 3b ip iiss 
00000000G 00 01 3 4 
51 08 AE g 0071 3$: 
02. Al 040: 8F 3C 00075 
°° 08 BO Q00rE 
85 0000" CF 00 008 
10 A 8) 6 0089 
oc Ad 51 25 C3 00080 
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4 
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| 
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| 
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| dee600 12-8081 obe $724: 53 DISKSVMSMASTER:CCDU.SRCJTABLE .832;1 9° 18) 
0000" CF 80 8F 9A 0009 MOVZBL #128, FREE_LONGWORDS : 16 
| BB 34 038 eel : 189 
04 AC DD OO09A 4S: PUSHL VERB_NAME t 1669 
FED? = CF 01 F 090 CALLS #1, CDUSDELETE_VERB_NAME ; 
0000" cr DS OOOA2 5$: TSTL  FREE_LONGWORDS + 1675 
| 6 12 000K BNEG = 8$ 
50 0000" CF DO OOOA MOVL CDUSGL_ TABLE RO t 1677 
52 50 08 AO C1 000AD ADDL (RO), RO, RO : 
56 50 OC ad (C1 008¢ ADDL3 12(R0S, RO, R6 + 1678 
oC AE F 0008 PUSHAB NEW BLOCK + 1680 
04 AE 6 C OOOBA MOVZWL (R23, 4(SP) : 
04 AE 00000080 8F 60 OOBE L2. #128, 4(5P) : 
04 AE SF 000C PUSHAB 4(S : 
68 08 FB 00¢9 CALLS #2. LIBSGET_VM : 
09 50 €8 O00CC BLBS STATUS, 6$ F 
50 DD OO0CF PUSHL STATU : 
000000006 00 01 EB 00001 CALLS #1, LIBSSIGNAL : 
OC BE 62 62 28 00008 6$ MOVC3 (R20), (R2), @NEW_BLOCK + 1681 
0 0000" CF 00 00000 MOVL. CDUSGL_TABLE, R t 1682 
08 a0 Oc AE 50 C3 000E2 SUBL3 RO, NE@_BLOCK, 8(RO) F 
OC AE 9F O00E8 PUSHAB NEW_BLOCK + 1684 
04 AE 66 3C OOOEB MOVZWL (R63, 4(SP) : 
04 AE 00000080 8F CO OODEF ADDL2 #128, 4(SP) ; 
04 AE 9F OO0F7 PUSHAB 4(SP5 : 
6B 02 FB OOOFA CALLS #2, LIBSGET_VM : 
09 50 £8 OO00FD S STATUS, 7$ : 
50 DD 00100 PUSHL STATUS ; 
000000006 00 01 FB 00102 CALLS #1, LIBSSIGNAL ; 
OC BE 66 66 28 00109 7$ MOVC3 (R6), (R6), @NEW_BLOCK + 1685 
50 0000" CF 00 00105 MOVL.  CDUSGL_TABLE, R + 1686 
oc 8 6A0 Oc AE 50 ¢3 0011 SUBL3. RO, NEQ@ BLOCK, 12(RO) ; 
0000" CF 20 00 00119 MOVL #32, FREE_LONGWORDS : 1688 | 
50 04 AC b0 OO11E 8$ MOVL § VERB_NAME; RO > 1694 
51 60 3C¢ 0012 MOVZWL (RO)> R1 : 
04 51 B1 001 Pu oR, 4 ; 
03 1B 00128 BLEQU 9$ ; 
51 04 DO 0012A VL. #4, RI ; 
04 00 04 B80 a. 31 2c 201 $8 9$: MOVCS R1. a4(RO), #0, #4, KEY : 
59 0000" CF pO 001 5 MOVL_  CDUSGL_TABLE, R9 : 1701 
SA 59 08 ad C1 013A ADDL3 8(R9), "RO, RIO ; | 
6B 59 0c a9 cr 0013F ADDL3 12(R9$, RO, RB : 1703 
54 06 AB 3C 00144 MOVZ2WL 6(RB), R4 : 1706 
56 ot cE 0148 MNEGL #1, | F 
B 11 00148 BRB 11§ F 
08 AA46 DF 00140 108 PUSHAL 8(R10)C1) . : 1707. 
10 AE 9E 04 29 O15! CMPC3. #4, a(SP)+, KLY ; 
7 1A 00156 BGTRU 12$ : 
Fl 56 4 £2 00158 11$:  AOBLSS R4, I, 108 ; 
56 01 cE 0015¢ MNEGL #1. ENTRY : 1706 
FFFFFFFE © 8F 56 D1 O015F 128: MPL =s ENTRY, #-1 : 1708 
04 12 00166 NEQ 13$ ; 
56 06 =A 3¢ 0168 MOVZWL (RB), ENTRY : 1709 
50 06 A 1 13$: MOVZWL 6(R8). RO : 1714 
57 35 3 : te nm gyre RO ENGTH : 
OC AAG6 DF 81) PUSHAL we ahs LENGTH > 1715 
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D.BLOCK, 8(R8)CENTRYJ 


DECL 
RET 
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434 bytes, Routine Base: SCODE$S + O6DF 
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! Description: This routine is called to collect all of the table blocks 
; and copy them into the final CLI table area. After the CLD 


sy 7 eli cdu$collect_table_blocks(final_area: pointer) : novalue 


own 


FEW 


own_final_area: pointer, 
allocation_offset: long; 


; 1916 1735 #1 

; 101 17 . 1 

; 1018 17 1 

; 1019 1738 1! files have been compiled, the table blocks are scattered 
; 1020 1739 1! ag me memory and must be collected in a contiguous 

: 18 1 1779 : } area before being written. 

; 10 ¢ 1768 1: The blocks are collected by traversing the tree of blocks 
; 1024 1745 1! which is rooted in the primary vector block. As the blocks 
; 1025 1744 1! are copied into the final area, all inter-block pointers 
3 1097 rt? : (TROsS) are adjusted accordingly. 

; 1028 1747 1°! Parameters: final area By reference, an area of memory to contain 
3 1968 1748 1! the final tables. It is assumed to be 

; 1030 1749 1! Large enough. 

3; 1031 1750 1! 

; 1986 1751 1 =! Returns: Nothing. 

; 103 1728 1! 

>: 1034 1753 1! Notes: 

; 1035 1754 1 I= 

; 1036 1755 1 

3; 1037 1756 1 

; 1038 1757 2 

; 1039 1758 2 

3; 1040 1759 2 

3 1041 1760 2 

3: 1042 1761 2 


e 


® | 
Ss" | 
| 
| 


3: 1044 1766 
3; 1045 176 

3 1nee 1764 
3; 104 1765 
: 1048 1768 
3: 1049 176 

; 1050 1768 
3; 1051 1769 
; 1928 1770 
3; 105 1771 
3 1054 eee 
3; 1055 177 

; 1056 1774 
3: 1057 1775 
3; 1058 17% 
3; 1059 177 

3; 1060 1778 
3: 1061 1779 
3 1086 1780 
3: 106 1781 
3 1064 1786 
3; 1065 178 

: 1066 1784 
3 1067 1785 
3; 1068 1786 
3: 1069 1787 
3; 1070 1788 
: 1071 1789 
3 1076 1790 
3: 107 1791 
: 1074 Ie 
: 1075 179 

3: 1076 1794 
3: 1077 1795 
3; 1078 1796 
3 1079 1797 
3; 1080 1798 
: 1081 1799 
3 Hh 54 1800 
: 108 1801 
3 1084 1306 
: 1085 180 

: 1086 1804 
: 1087 1805 
3; 1088 1806 
3; 1089 1807 
: 1090 1808 
: 1091 1809 
3 94 1810 
3; 109 1811 


. 3 
17=3007 138% $3: 31:63 VAX-11 Bliss-32 V4.0-74 
14-Sep-1984 11:58:28 DISKSVMSMASTER: CCDU.SRCJTABLE .832;1 
! This internal routine collects a block and all of its children. It is passed 
! the address of the block and returns the TRO of the block in the final 


! area. 
ROUTINE collect_block(a_block: pointer) 
= BEGIN 


local 
new_tro: long; 


! If the table block has already been visited for collection, a special type 
! code will exist in its header. Simply return the saved TRO. 


if sa lock vet _D_syee? eqlu_block_k_cdu_visited then 
return .a_block(4,0,32,0); 


! Remember the new TRO of this block and copy it there. Advance the allocation 
! offset to account for the block. 


new_tro = .allocation_offset; ‘ 

ch$move(.a_block(vec_w size],.a_block, .own_final_area+.new_tro); 
allocation_offset = vallocation-of fset + .a_blockCvec_w_sizeJ; 

: Mark this block as collected by storing a special type code in its 

! header. Also save its new TRO in the second longword. This will ensure 
! that we don't collect the block more than once if it is referenced 

! multiple times. 


a_block{vec_b typed = block_k_cdu_visited; 
block(4,0732,0) = .new_tro; 


oop through each of the blocks that are directly referenced by this 
ock. Collect them and update the TROs in this block. 


a. 
' 
! bl 
py 
newblock = .own_final_area + .new_tro: block(,byte] 
tro_list = new_bTock + vec_k_header_Llength: vectorL, ong); 
incr i from 0 to .new_blockCvec_w tro_count]-1 do 
if .tro_listl.i) nequ then F 
‘ tro_listC.i] = collect_block(.cdu$gl_table+.tro_listl.i]); 
end; 
! Return the new TRO of this block in the final area. 
return .new_tro; 


END; 


-PSECT SOWNS,NOEXE,2 
00858 OWN_F INAL_AREA: 
-BLKB 4 


ow 


E8 


; Routine Size: 89 bytes, 


56 
06 
50 
58 
58 
66 
50 
0000" CF 
02 Ab 
04 ag 
5 
54 
52 
0000° CF 
B3 AF 
342 
52 
50 


Routine Base: 


i$. -Sep-19 
14-Sep-19 


Be 47:38:58 


VAX-11 Bliss-32 V4.0 


0085C ALLOCATION_OFFSET: 
-BCKB 4 


«PSECT 


O1FC 00000 onan Pee 


04 AC 00 00002 
Se Hl Bip 
oA 
0000" CF DO S49 
oo Be 
66 f 300 ° 

50 ¢ B08 
06 90 00028 
98 00 0002C 
08 A? 3 0030 
06 A? 3C 00034 
01 CE 00038 
14 11 00038 
6342 03 00030 
OF 13 00040 
6342 C1 00042 
01 FB 00049 
50 DO 0004D 
54 F2 00051 
58 00 00055 
04 00058 


SCODES + 0891 


2$: 


3$: 


SCODES ,NOWRT ,2 


Save R2,R3,R4,R5,R6,R7,R8 
A_BLOCK, R6 
e{R6), #6 


4(R6), RO 


ALLOCATION, OFFSET NEW. TAQ, 
OWN _F AL A REA, 5 NEW. 


R 
RO. ALLOCATION_OFF SET 


W_TRO, 4(R6) 
» R 


uss TABLE, (SP) 
Lotk 


m sige —Nm 
~~ 
KOn 
a 
‘2 


DISKSVMSMASTER:CCDU. she TABLE .832;1 


Peer 48 


(20) 


H 3 
| TABL 15-Sep-1984 23: VAX-11 Bliss-32 V4. 
Vor e800 14- ~* 1382 3 3h 3 DISKSVMSMASTER: clon” She TABLE. 852: 1 


3 


' Main routine. 


10 ! Call an internal routine to collect all of the blocks. 


own_final_area 4 - final area; 

allocation_offse 

collect _block(. tduSgl: table); 

!' The uncollected table will fade into oblivion. 


cdu$gl_table = .final_area; 


cdu$gl_tableCvec_l_table_size] = .allocation_offset; 
return; 

2 

1 END; 


Se Se Ge Ge Ge ee Ge Se Gee Ge Fe Ge Ge Se Se Ge Ge ee 
ot as 3 1s a 9 ss 
et at st 2s 3 2 I 2 2 I 1 OOO 
Wr—O0O@ VEFWN—O0OM® 

a a tt as ts a ss tt 
2 09 09 C9 09 C0 C9. CD CD 0D G9 0D 0D C9 CD CD CD OD 0D 
ARPONOPOPONONPPUNNY 2 SS SS Se 
SOWONOUS WN OOONAUS wr 


52 0000" CF 002 Vv 
0000" CF 4 AC 00 00007 MOVL 
0000" CF 04 00000 CLRL 
62 DD 00011 PUSHL 
90 AF 01 FB 00013 CALLS 
62 04 AC 00 00017 MOVL 
50 62 00 00018 MOVL 
10 AO 0000" CF 00 QOOIE MOVL 
04 00024 RET 


; Routine Size: 37 bytes, Routine Base: SCODES + O8EA 


! Reset the global variable that points at the beginning of the table. 


! Store the exact size of the CLI table in the primary vector block. 


cOUsCOLL ES’ TABLE _BLOLKS, Save R2 
ate use. R 


L 
ae Ty OWN_ FINAL AREA 
ALLOCRTION N_OFFSET 
$GL_ TABLE 
COCLECT_BLOCK 
FINAL_AREA, “CDUSGL_TABLE 


CDUSGC_TABL 
ALLOCATION. OFFSET. 16(RO) 


AL 
DU 
1, 


Page 


64 
(21) 


ang anes 


<- 


WWW WA WWNWIWPPononononononofnund 2 2 
AUS WN O OONOVEWN"OOONOu 


st a ss ss — —) — 9 - 9 4 2 2s Ls — 4 ts a 


Sek ee tl el le ek 


DONOULWN—OVOO~N 


3 Routine Size: 


| 
| 
| 
j 
| 
| 


‘r 


14 

' Description: 
‘ lock of bytes from one 
meee since the stupid VA 
65K-1 bytes at a time. 


Parameters: length By 
from_address 
to_address 

Returns: Nothing. 

! Notes: 


GLOBAL ROUTINE Long_move(Length: Long, 


= BEGIN 
Local 
remaining_length: long; 
! Just move the block in 65K=-1 chunks. 


remaining_length = .length; 
incru offset 


Os > sb > ss 2 2» = bs — 8s a a 2 ss as ss as ss 2 


= POPNOW FUROR NN 2 2 oe 


ch$move(minu(. remaining _length,%x ‘Off 
, remaining_length = .remaining_L 
return; 
6 
6 END; 
01FC 00000 
56 04 AC 00 00002 
57 D4 00006 
¢3 11 00008 
58 6 DO OOO0A 
OOOOFFFF 8F 58 01 00000 
05 1B 00014 
58 FFFF ef 3C 00016 
OC BC47 08 BC47 8 28 00018 
56 58 C2 00023 
57 OOOOFFFF gf 4 00026 
04 AC 7 O B00 D 
D7? 1B 00051 
04 00033 


52 bytes, Routine Base: $CODE$ + 090F 


3 
sen-1984 43:31:63 VAX-11 Bliss-32 se ge 
S$ep-1984 11:58:28 DISKSVMSMASTER: CCDU.SRCJTABLE.B832;1 


This internal routine is called to move an arbitrarily-long 
b lace to another. 


A loop must be 


instructions can't move more than 


from_address: pointer, 
to_address: pointer) 


rom 0 to .length ay Zx'Offff' d 
e 


— 
bad 


™m 
nr 


w 
bad 


value, the length of the block. 
By reference, the source address. 
By reference, the destination address. 


: novalue 


*),.from_address+.offset, . 
ength - minu(.remaining_length,%x'OffTf' 


to efgreses.otteet): 


LONG_MOVE, Save R2,R3,R4,R5,R6,R7,R8 
LENGTH. REMAINING LENGTH 


$ 

REMAINING LENGTH, R8 
R8, #65535 

#65535, RB 
RB ake _ADDRESSCOFFSETJ, @TO_ADDRESS- 
EMAINING_LENGTH 


8, R 
5535(R7), OFFSET 
FESET, LENGTH 


Page 50 


(22) 


fe eee Sheet os VTi : ag ee r 
| 
TABL 1b-se $1984 23:51:29 VAX-11 Bliss-32 V4 Page 51 | 
v04- 12-808=1 3c $7525 353 DISKSVMSMASTER:CCDU. “SneSr aac. 832;1 . (23) ’ 
3; 1150 
1151 1867 1 END 
1182 1868 0 ELUDOM 
-EXTRN LIBSSIGNAL 

H PSECT SUMMARY 

: Name Bytes Attributes 

: SOWNS 2144 NOVEC, WRT, RD 0 OENE e ae LCL, REL, CON,NOPIC,ALIGN(2) 

; SPLITS 108 WNOVEC,NOWRT, RD ,NOEXE,NOS LCL, REL. CON,NOPIC,ALIGN‘2) 

; S$GLOBALS 4 NOVEC, WRT, RD *NOEXE, NOSHR: LCL, REL, CON,NOPIC,ALIGN(2) 

; SCODES 2371 NOVEC ,NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

: Library Statistics 

; eccoeess Syadols oooeoose Pages Processing 

; File Total i zaded Percent Mapped Time 

; _$255$DUA28: CSYSLIBILIB.L32;1 18619 112 0 1000 00:02.0 

; COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$: TABLE/OBJ=0BJ$: TABLE MSRC$: TABLE/UPDATE=(ENH$: TABLE) 


; Size: 2371 coge,* 2256 data bytes 


3; Elapsed Time: 01:45.4 
: Lines/CPU Min: $¢/ § 
3: Lexemes/CPU-Min: 2759 

; Used: 284 pages 
3; Compilation Complete 


AH-BT13A-SE 
VAX/VMS V4.0 


0044 DIGITAL EQUIPMENT CORPORATION 
: CONFIDENTIAL AND PROPRIETARY 


IGI 
ONF 


: 004 AH-BT13A-SE : ENT CORPORATION 
VAX/VMS V4.0 ND PROPRIETARY 


